www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/core.m
function y=core(c,d,x) [xp,xq]=size(x); [cp,cq]=size(c); [dp,dq]=size(d); y=[]; q=ind(d,x); pp=ind(c,x); [b,w]=pospq(pp,q); for u=1:cq a{u}=setdiff(c,u); p{u}=ind(a{u},x); [k{u},kk{u}]=pospq(p{u},q); if k{u}~=b, y=cat(2,y,u); end end